home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
DATABASE.DIR
/
00098_Script_CLEARING HANDLERS
< prev
next >
Wrap
Text File
|
1996-03-28
|
2KB
|
57 lines
-- --------------------------------------------------------
-- Handler clearDatabase resets the database from the
-- previous topic.
on clearDatabase
global textSprite, clearedFlag, printbutton, searchButton
if not(clearedFlag) then
set the editableText of sprite textSprite = FALSE
set the castNum of sprite textSprite = the number of cast "Empty Text"
clearTitle
unhiliteClickedTopic
removeMoreButtons
resetCurrentPage
resetCurrentPicture
resetCurrentCaption
removeTopicPicture
disableTopicButtons
updateStage
setClearedFlag(TRUE)
end if
end
-- --------------------------------------------------------
-- Handler setClearedFlag sets the variable clearedFlag
-- which indicates whether or not the text has already
-- been cleared.
on setClearedFlag val
global clearedFlag
set clearedFlag = val
end
-- --------------------------------------------------------
-- Handler clearSearchTopicField clears the field "searchTopic"
-- which contains the user input word to be searched for.
on clearSearchTopicField
put " " into field "searchTopic"
setFieldFont("searchTopic")
set the textSize of field "searchTopic" = 14
set the textHeight of field "searchTopic" = 16
put "" into field "searchTopic"
end
-- ---------------------------------------------------------------
-- Handler clearTitle clears the title field.
on clearTitle
put " " into cast "Topic Title"
end